home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / modelers / linkedit / linkedit.lha / link-edit / LinkEdit / Choose / choose.c next >
Encoding:
C/C++ Source or Header  |  1991-03-13  |  13.9 KB  |  482 lines
  1. #include <X11/Xlib.h>
  2. #include <X11/Xutil.h>
  3. #include <X11/cursorfont.h>
  4. #include <stdio.h>
  5. #include <sys/types.h>
  6. #include <dirent.h>
  7. #include <malloc.h>
  8.  
  9. #define MaxFiles 100
  10. #define MaxName 100
  11. #define MaxSuff 100
  12. #define mystuff mydisplay, mywindow, mygc
  13. #define rmystuff mydisplay, mywindow, rmygc
  14. #define font "9x15"   /* 9x15 */
  15. #define min(A,B) ((A>=B) ? B : A)
  16. #define max(A,B) ((A>=B) ? A : B)
  17. #define message(A); XFillRectangles(mystuff,&messbox,1); \
  18.   XDrawString(rmystuff,messbox.x+5,messbox.y+letheight, A, strlen(A));
  19.  
  20. char *choose_dir;
  21. static XSizeHints myhint;
  22. static shwdir=1;
  23. static char *sufv[MaxSuff]; 
  24. static int sufc=0;
  25. static XFontStruct *font_struct;
  26. static int letwidth=6;
  27. static int letheight=13;
  28. static int rows=10;
  29. static XRectangle lstbox,cancelbox,okbox,fnamebox,upbox,downbox,mvbox,messbox;
  30. static char *prompt_string="file name: ";
  31.  
  32.   
  33.  
  34. static  int firstcall=0;
  35. static  Display *mydisplay;
  36. static  Window mywindow,UrgWindow;
  37. static  XWindowAttributes sizeatt;
  38. static  GC mygc,rmygc;
  39. static  XEvent event,myevent;
  40. static  Cursor curs1,curs2;
  41. static  unsigned long myforeground, mybackground;
  42. static  KeySym mykey;
  43. static  int myscreen;
  44.  
  45. /* TOBY addition */
  46. extern Display *dpy;
  47.  
  48.  
  49. struct elm {
  50.   int chose;
  51.   int ftype;
  52.   char name[MaxName];
  53. };
  54.  
  55. int
  56. showdir(which)
  57.   int which;
  58. {  shwdir=which; return(which); }
  59.  
  60. int
  61. addsuff(name)
  62.   char *name;
  63. { if (sufc<MaxSuff)
  64.   { sufc++;
  65.     *(sufv+sufc-1)=(char *)malloc((strlen(name)+2)*sizeof(char));
  66.     strcpy(*(sufv+sufc-1),name); return(1);
  67.   }
  68.   else return(0);
  69. }
  70.  
  71. int
  72. clearsuff()
  73. { int t;
  74.   for(t=0; t<sufc; t++) free(*(sufv+t));
  75.   sufc=0;
  76. }
  77. int
  78. delsuff(name)
  79.   char *name;
  80. { int t,t2,good=0;
  81.   for(t=0; t<sufc; t++)
  82.     if (strcmp(name,*(sufv+t))==0)
  83.     { free(*(sufv+t)); 
  84.       good=1;
  85.       for(t2=t; t2<sufc; t2++) *(sufv+t2) = *(sufv+t2+1);
  86.       t--;
  87.       sufc--;
  88.     }
  89.    return(good);
  90. }
  91.  
  92. int
  93. suflist(name)
  94.   char *name;
  95. { int t;
  96.   if (sufc==0) return(1);
  97.   for(t=0; t<sufc; t++)
  98.     if (match(name,*(sufv+t)))  return(1);
  99.   return(0);
  100. }
  101.   
  102. void
  103. chfree(namesc, namesv)
  104.   int *namesc;
  105.   char ***namesv;
  106. { 
  107.   while ((*namesc)-->0)
  108.     if (*((*namesv)+(*namesc))!=NULL) free(*((*namesv)+(*namesc)));
  109.   if (*namesv!=NULL) free(*namesv);
  110. }
  111.  
  112. XRectangle assign(x,y,width,height)
  113.   int x,y,width,height;
  114. { XRectangle box;
  115.   box.x=x;
  116.   box.y=y;
  117.   box.width=width;
  118.   box.height=height;
  119.   return(box);
  120. }
  121.  
  122. void init2()
  123. { lstbox=assign(19,19,15*letwidth+4,rows*letheight+4);
  124.   upbox=assign(lstbox.x+lstbox.width,lstbox.y,15,15);
  125.   downbox=assign(upbox.x,lstbox.y+lstbox.height-15,15,15);
  126.   mvbox=assign(upbox.x,upbox.y+upbox.height,15,downbox.y-upbox.y-upbox.height);
  127.   fnamebox=assign(0,lstbox.y+lstbox.height+30,letwidth*45+4,letheight*3+4);
  128.   okbox=assign(upbox.x+upbox.width+50,50,letwidth*6+4,letheight+8);
  129.   cancelbox=assign(okbox.x,okbox.y+okbox.height+30,okbox.width,okbox.height);
  130.   messbox=assign(0,fnamebox.y+fnamebox.height+2,fnamebox.width,letheight+4);
  131. }
  132.  
  133. void init()
  134. { int ascent,descent,dummy;  
  135.   XCharStruct overall;
  136.   if (font_struct!=NULL) 
  137.   { XTextExtents(font_struct," ",1,&dummy,&ascent,&descent,&overall);
  138.     letwidth=overall.width;
  139.     letheight=ascent+descent;
  140.   }
  141.   init2();
  142.   myhint.width=fnamebox.x+fnamebox.width+4; myhint.height=messbox.y+messbox.height+4;
  143. }
  144.  
  145. inbox(box,myevent)
  146.   XRectangle box;
  147.   XEvent myevent;
  148. { if ( myevent.xbutton.x>=box.x && myevent.xbutton.x<=(box.x+box.width) &&
  149.     myevent.xbutton.y>=box.y && myevent.xbutton.y<=(box.y+box.height)) return(1);
  150.   else return(0);
  151. }
  152.  
  153. void Cleanlst(lst,dirl)
  154.   struct elm *lst;
  155.   int dirl;
  156. { int i;
  157.   for(i=1; i<=dirl; i++) lst[i].chose=0;
  158. }
  159.  
  160. void flash(mydisplay,mywindow,mygc,box)
  161.   Display *mydisplay; 
  162.   Window mywindow;
  163.   GC mygc;
  164.   XRectangle box;
  165. { int delay=200;
  166.   XEvent event;
  167.   XSetFunction(mydisplay,mygc,GXxor);
  168.   XFillRectangles(mystuff,&box,1);
  169.   XPeekEvent(mydisplay,&event); 
  170.   XFillRectangles(mystuff,&box,1); 
  171.   XSetFunction(mydisplay,mygc,GXcopy);
  172. }
  173.  
  174. void Xinit(write_read) 
  175.   int write_read;
  176. {
  177.  
  178. /*************
  179.   mydisplay=XOpenDisplay("");
  180. *************/
  181. /* TOBY Addition */
  182.   mydisplay = dpy;
  183.   myscreen = DefaultScreen(mydisplay);
  184.   mybackground= WhitePixel(mydisplay,myscreen);
  185.   myforeground= BlackPixel(mydisplay,myscreen);
  186.   font_struct=XLoadQueryFont(mydisplay,font);
  187.   init(); 
  188.   mywindow=XCreateSimpleWindow (mydisplay, DefaultRootWindow (mydisplay), myhint.x,
  189.     myhint.y, myhint.width, myhint.height,5,myforeground,mybackground);
  190.   XSetStandardProperties(mydisplay,mywindow,(write_read) ? "Save" :
  191.     "Load" ,"choosefile",None,NULL,0, &myhint);
  192.   mygc=XCreateGC(mydisplay,mywindow,0,0);
  193.   rmygc=XCreateGC(mydisplay,mywindow,0,0);
  194. }
  195.  
  196.  
  197. simple_choose(namesc,namesv,write_read)
  198.   int *namesc;
  199.   char ***namesv;
  200.   int write_read;
  201. {
  202.   if (firstcall==0)  { 
  203.     choose_dir=(char *)malloc(10);
  204.     strcpy(choose_dir,".");
  205.   }
  206.   choosefile(namesc,namesv,&choose_dir,choose_dir,write_read);
  207. }
  208.  
  209. choosefile(namesc,namesv,dpath,dr,write_read)
  210.   int *namesc;
  211.   char ***namesv;
  212.   char **dpath;
  213.   char *dr;
  214.   int write_read;
  215. { FILE  *fp;
  216.   DIR *dirp,*dumdir; 
  217.   char dum[300] ,inp[MaxName+20],  dum2[300],shell[300], dum3[MaxName+20],
  218.     text[10],inp_string[30],chrctr[2]; 
  219.   int i,found,chrows,k=0,flag=1,ch,dirl,kold,smooth=0,rdraw=0,chgdir=0,moved=0,
  220.     done=0,getting=0,x,y,pstn,start=1,n;
  221.   struct dirent *dp;
  222.   struct elm *lst;
  223.   strcpy(inp_string,"");
  224.   strcpy(dum2,dr);
  225.   lst=(struct elm *)(malloc(MaxFiles*sizeof(struct elm)));
  226.  
  227.   if (firstcall==0) 
  228.     Xinit(write_read);
  229.   else
  230.     XMapWindow(mydisplay,mywindow);
  231.   myhint.flags =PPosition | PSize; 
  232.   if (font_struct!=NULL)  
  233.   { XSetFont(mydisplay,mygc,font_struct->fid);
  234.     XSetFont(mydisplay,rmygc,font_struct->fid);
  235.   }
  236.   curs1=XCreateFontCursor(mydisplay,XC_top_left_arrow);
  237.   curs2=XCreateFontCursor(mydisplay,XC_watch);
  238.   XDefineCursor(mydisplay,mywindow,curs1);
  239.   XSetBackground(mydisplay,mygc,mybackground);
  240.   XSetForeground(mydisplay,mygc,myforeground);
  241.   XSetBackground(mydisplay,rmygc,myforeground);
  242.   XSetForeground(mydisplay,rmygc,mybackground);
  243.   XSelectInput(mydisplay,mywindow,ButtonPressMask | PointerMotionMask | 
  244.     ButtonReleaseMask | KeyPressMask | ExposureMask );
  245.   XMapRaised(mydisplay,mywindow);
  246.   while (done ==0)  
  247.   { if (flag) 
  248.     { XDefineCursor(mydisplay,mywindow,curs2); 
  249.       message("");
  250.       dirl=0;
  251.       sprintf(shell,"cd %s; pwd",dum2);
  252.       fp=popen(shell,"r");
  253.       fgets(dum2,100,fp);     
  254.       pclose(fp); 
  255.       n=strlen(dum2);
  256.       if (n>0 && dum2[n-1]=='\n') dum2[n-1]='\0';
  257.       dirp=opendir(dum2);
  258.       if (dirp!=NULL) 
  259.       { for (dp=readdir(dirp); dp!=NULL; dp=readdir(dirp))
  260.         { if (dirl<(MaxFiles-1))
  261.           { strncpy((lst[++dirl].name),(dp->d_name),MaxName-1);
  262.             if (strlen(dp->d_name)>=MaxName)
  263.             { message("Some File Names are too long ");}
  264.             strcpy(dum,dum2);
  265.             strcat(dum,"/");
  266.             lst[dirl].chose=0;
  267.             lst[dirl].ftype=!((dumdir=opendir(strcat(dum,lst[dirl].name)))==NULL);
  268.             if (lst[dirl].ftype) closedir(dumdir);
  269.             if (!((lst[dirl].ftype && shwdir) ||
  270.               (suflist(dp->d_name) && !(lst[dirl].ftype) ))) dirl--;
  271.           }
  272.           else {message("Too many files in the Directory"); }
  273.         } 
  274.         closedir(dirp);
  275.       }
  276.       flag=0;
  277.       XDefineCursor(mydisplay,mywindow,curs1); 
  278.     }
  279.     if ((start) && (*namesc>0))
  280.     { for(start=0;*namesc>0; (*namesc)--)
  281.       { found=0;
  282.         for(i=dirl; i>=1; i--)
  283.           if (match(lst[i].name,*((*namesv)+(*namesc)-1)) && (!lst[i].ftype)) 
  284.           { lst[i].chose=1; found=1; k=i-2;  k=max(min(dirl+2-rows,k),0);
  285.             if (write_read) {i=0;*namesc=0;} 
  286.           }
  287.         if (found) strcpy(inp_string,*((*namesv)));
  288.       }
  289.     }
  290.     if (rdraw) 
  291.     { rdraw=0;
  292.       XDrawImageString (mystuff,okbox.x+(okbox.width)/2-letwidth*2,
  293.         okbox.y+okbox.height/2+letheight/2,(chgdir) ? "OPEN" : " OK ",4);
  294.       for(i=1; i<=rows && (i+k)<=dirl; i++)
  295.         if (lst[i+k].chose) 
  296.         { XFillRectangle(mystuff,lstbox.x+1,lstbox.y+3+(i-1)*letheight,
  297.             15*letwidth,letheight);
  298.           XDrawString(rmystuff,lstbox.x+1,lstbox.y+i*letheight,
  299.             lst[i+k].name, min(strlen(lst[i+k].name),10));
  300.           if (lst[i+k].ftype) 
  301.             XDrawString(rmystuff,lstbox.x+1+letwidth*10,lstbox.y+i*letheight,"<dir>",5);
  302.         }
  303.         else
  304.         { XDrawImageString (mystuff, lstbox.x+1,lstbox.y
  305.             +i*letheight,strcat(strcpy(dum3,lst[i+k].name),"               "),10);
  306.           XDrawImageString(mystuff,lstbox.x+1+letwidth*10,lstbox.y+
  307.              i*letheight,(lst[i+k].ftype) ? "<dir>" : "     ",5);
  308.         }
  309.       for(; i<=rows; i++)
  310.       XDrawImageString (mydisplay, mywindow, mygc,lstbox.x+1,lstbox.y+i*letheight, 
  311.         "                       ", 15 );
  312.       XFillRectangles(mydisplay,mywindow,rmygc,&mvbox,1);
  313.       XDrawRectangles(mydisplay,mywindow,mygc,&mvbox,1);
  314.       XFillRectangle(mydisplay,mywindow,mygc,mvbox.x,mvbox.y+mvbox.height*
  315.         k/max((dirl+2),rows),mvbox.width,1+mvbox.height*rows/max(dirl+2,rows));
  316.     }
  317.     XNextEvent(mydisplay, &myevent);
  318.     switch(myevent.type) {
  319.     case ButtonRelease:
  320.       if (smooth) smooth=0;
  321.       break;
  322.     case MotionNotify:
  323.       if (smooth)  
  324.       { kold=k;
  325.         k=max((myevent.xmotion.y-mvbox.y)*max(dirl+2,rows),0)/mvbox.height;
  326.         k=max(min(dirl+2-rows,k),0); if (kold!=k) rdraw=1;
  327.       }
  328.       break;    
  329.     case MappingNotify:
  330.       XRefreshKeyboardMapping ( &myevent);
  331.       break;
  332.     case Expose:
  333.       if  (myevent.xexpose.count==0)
  334.         XGetWindowAttributes(mydisplay,mywindow, &sizeatt);
  335.       if (sizeatt.height!=myhint.height) 
  336.       { chrows=(sizeatt.height-myhint.height)/(letheight);
  337.         chrows=max(5-rows,chrows);
  338.         rows+=chrows; myhint.height+=chrows*letheight; init2();
  339.         k=max(min(dirl+2-rows,k),0);
  340.       }
  341.       XDrawRectangles(mystuff,&fnamebox,1); 
  342.       XDrawRectangles (mystuff,&lstbox,1);
  343.       XDrawRectangles (mystuff, &mvbox,1);
  344.       XDrawRectangles (mystuff, &upbox,1);
  345.       XDrawRectangles (mystuff, &downbox,1); 
  346.       XDrawRectangles (mystuff, &okbox,1); 
  347.       XDrawRectangles (mystuff, &cancelbox,1);  
  348.       XDrawImageString (mystuff,cancelbox.x+(cancelbox.width)/2
  349.         -letwidth*3,cancelbox.y+cancelbox.height/2+letheight/2,"CANCEL",6);
  350.       XDrawString(mystuff,10+fnamebox.x,(fnamebox.height+letheight)/2
  351.        +fnamebox.y-3,strcat(strcat(strcpy(dum3,prompt_string),inp_string),(getting)
  352.        ? "_" : " "),strlen(prompt_string)+strlen(inp_string)+1);
  353.       rdraw=1; 
  354.       break;
  355.     case KeyPress:
  356.       if (XLookupString(&myevent, text, 10, &mykey, 0)==1)
  357.       { if (!getting) 
  358.         { pstn = 0;
  359.           y =(fnamebox.height+letheight)/2+fnamebox.y-3;
  360.           x = 10+fnamebox.x + letwidth*strlen(prompt_string);
  361.           XDrawImageString(mystuff,x,y,"_                             ",30);
  362.           getting=1;
  363.         }
  364.         if((text[0] >= 32) && (text[0]!='/') && (text[0]!='{') && (text[0]!='}') 
  365.           && (text[0] <= 126) && pstn<30) 
  366.         { XDrawImageString(mystuff,x,y,text,1);
  367.           x += letwidth;
  368.           XDrawImageString(mystuff,x,y,"_",1);
  369.           inp_string[pstn] = text[0];
  370.           pstn++;
  371.         }
  372.         if(((text[0] == 8) || (text[0] == 127)) && (pstn>0)) 
  373.         { pstn--;
  374.           x -= letwidth;
  375.           XDrawImageString(mystuff,x,y,"_ ",2);
  376.         }
  377.         if (text[0]=='\r') 
  378.         { getting=0;
  379.           XDrawImageString(mystuff,x,y,"  ",2);  
  380.           inp_string[pstn] = 0;
  381.           if (pstn>0)
  382.           { Cleanlst(lst,dirl);
  383.             chgdir=0;
  384.             rdraw=1;
  385.             found=0;
  386.             message("");
  387.             for(i=dirl; i>=1; i--)
  388.               if (match(lst[i].name,inp_string) && (!lst[i].ftype)) 
  389.               { lst[i].chose=1; found=1; k=i-2;  k=max(min(dirl+2-rows,k),0);
  390.                 if (write_read) i=0; 
  391.               }
  392.             if ((!found) && (!write_read)) {message("Not found");}
  393.             if ((found) && (write_read)) {message("Note: Already Exists");}
  394.           }
  395.         }
  396.         inp_string[pstn] = 0;
  397.       }
  398.       break; 
  399.     case ButtonPress:
  400.       if (inbox(cancelbox,myevent)) done=2;
  401.       if (inbox(okbox,myevent)) 
  402.       if (chgdir) 
  403.       { XDefineCursor(mydisplay,mywindow,curs2); 
  404.  
  405.         flash(mystuff,okbox); 
  406.         strcat(dum2,"/");
  407.         strcat(dum2,inp);
  408.         flag=1; k=0; 
  409.         rdraw=1;
  410.         chgdir=0;
  411.       }
  412.       else done=1;
  413.       if (inbox(downbox,myevent)) { flash(mystuff,downbox); k++; }
  414.       if (inbox(upbox,myevent)) {flash(mystuff,upbox); k--; }
  415.       if (inbox(mvbox,myevent))
  416.       { k=(myevent.xbutton.y-mvbox.y)*max(dirl+2,rows)/mvbox.height; smooth=1;}
  417.       k=max(min(dirl+2-rows,k),0);
  418.       if (inbox(upbox,myevent) || inbox(downbox,myevent) || inbox(mvbox,myevent)) 
  419.         rdraw=1;
  420.       if (inbox(lstbox,myevent))
  421.       { ch=(myevent.xbutton.y-(lstbox.y+3))/letheight+1; 
  422.         if (ch+k>dirl) ch=0;
  423.         rdraw=1;
  424.         if (chgdir) { Cleanlst(lst,dirl); chgdir=0;}
  425.         lst[ch+k].chose=(!lst[ch+k].chose);
  426.         if ((ch>=1) && (ch<=rows) && ((lst[ch+k].ftype==1) || (write_read)))   
  427.         { strcpy(inp,lst[ch+k].name);
  428.           Cleanlst(lst,dirl);
  429.           lst[ch+k].chose=1;
  430.           if (lst[ch+k].ftype) chgdir=1;
  431.         }
  432.       }
  433.       break;
  434.     }
  435.   }
  436. /**** TOBY change: dumps core! 
  437.   if (firstcall==1) chfree(namesc,namesv);
  438. ****/
  439.  
  440.   *namesc=0;
  441.   if (done==2) {*namesv=NULL; *dpath=NULL; }
  442.   else
  443.   { *namesv=(char **)malloc(dirl*sizeof(char *));
  444.     for(i=1; i<=dirl; i++)
  445.       if (lst[i].chose)
  446.       { 
  447.         *((*namesv)+(*namesc))=(char *)malloc(strlen(lst[i].name)+2);
  448.         strcpy(*((*namesv)+(*namesc)),lst[i].name);
  449.         (*namesc)++;
  450.       }
  451.   /*  if (dpath!=NULL) free(dpath); */
  452.     if ((*namesc)==0 && write_read==1 && strlen(inp_string)>0) 
  453.     {
  454.         *((*namesv)+(*namesc))=(char *)malloc(strlen(inp_string)+2);
  455.         strcpy(*((*namesv)+(*namesc)),inp_string);
  456.         (*namesc)++;
  457.     }
  458.       
  459.     *dpath=(char *)malloc(strlen(dum2)+2);
  460.     strcpy(*dpath,dum2);
  461.   }
  462.   if (firstcall==0) firstcall=1;
  463.   XUnmapWindow(mydisplay,mywindow);
  464.   return(*namesc);
  465. }
  466.  
  467. void
  468. choose_exit()
  469. {
  470.  
  471.   XFreeGC (mydisplay,mygc); 
  472.   XDestroyWindow (mydisplay,mywindow);
  473. /* TOBY change
  474.   XCloseDisplay (mydisplay);
  475. */
  476.   firstcall=0;
  477. }
  478.  
  479.  
  480.  
  481.  
  482.